home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed48.d64 / exercise 13 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  5KB  |  153 lines
  1. 100 PRINT"[147]";:POKE53272,23:POKE53280,0:POKE53281,0:C=0
  2. 101 PRINT"[156]          [215][200][195] [197]NTERPRISES":GOSUB591
  3. 102 PRINT"[159]                                        [146]";
  4. 103 PRINT"                                        [146]";
  5. 104 PRINT"         [205]C[196]ONALD [197]NGLISH [211]ERIES        [146]";
  6. 105 PRINT"[159]                                        [146]";
  7. 106 PRINT"                                        [146]";
  8. 107 PRINT"               [215][207][210][196][160] [213][211][193][199][197]              [146]";
  9. 108 PRINT"[159]                                        [146]";
  10. 109 PRINT"                                        [146]";
  11. 110 PRINT"                MAY - CAN               [146]";
  12. 111 PRINT"[159]                                        [146]";
  13. 112 PRINT"[159]                                        [146]":GOSUB235
  14. 150 PRINT"[159][147] [215]HAT IS YOUR NAME?   "
  15. 152 INPUT N$
  16. 156 GOSUB590
  17. 158 PRINT" [201]NSTRUCTIONS?  [217]/[206]
  18. 160 [161]R$:[139]R$[179][177]"Y"[175]R$[179][177]"N"[175]R$[179][177]"(null)"[175]R$[179][177]"(null)"[167]160
  19. 162 [139]R$[178]"Y"[167][137]400
  20. 163 [139]R$[178]"(null)"[167][137]400
  21. 190 [153]"OPENLOAD AND AWAY WE GO, "N$".":[141]591:[141]500:[141]590
  22. 192 [137]1000
  23. 235 [141]591:[141]560
  24. 236 [153]"CONT (null)RESS (null)(null)ATNLENVAL PEEKATN(null) TO CONTINUE WAITLIST"
  25. 237 [161]U$:[139]U$[179][177][199](32)[167]237
  26. 238 [142]
  27. 240 [141]592:[141]560
  28. 242 [153]"CONT    >>>> (null)(null)ATNLENVAL PEEKATN(null) <<<<   "
  29. 244 [161]U$:[139]U$[179][177][199](32)[167]244
  30. 246 [153]"ON                                       "
  31. 248 [142]
  32. 299 :
  33. 400 [153]"LOAD              RIGHT$NSTRUCTIONS            OPEN
  34. 402 PRINT" [212]HIS IS A WORD GAME FOR GRADE 3, 4,     AND 5 PUPILS."
  35. 404 PRINT" [201]T WILL HELP YOU WITH YOUR SPELLING.
  36. 406 [153]" (null)OUR TASK IS TO SELECT FORMS OF
  37. 408 PRINT" [158]MAY OR [158]CAN IN A FEW SENTENCES.
  38. 414 [153]"OPEN ATNFTER YOU TYPE IN THE WORD, PRESS        (null)VAL(null)(null)(null)(null) WAIT":[141]235
  39. 416 [153]"LOADOPEN     (null)OW, LET'S LOOK AT SOME HINTS."
  40. 418 [141]235:[137]600
  41. 499 :
  42. 500 [143] <YES>
  43. 505 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  44. 510 [151]54296,15:[151]54277,42:[151]54278,250
  45. 515 [151]54276,23:[151]54273,23:[151]54272,191
  46. 520 [129]TM[178]1[164]150:[130]:[151]54276,32:[129]TM[178]1[164]200:[130]
  47. 525 [151]54296,0:[142]
  48. 530 [143] <NO>
  49. 535 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  50. 540 [151]54296,15:[151]54277,18:[151]54278,242
  51. 545 [151]54276,33:[151]54273,4:[151]54272,48
  52. 550 [129]TM[178]1[164]300:[130]:[151]54276,32:[129]TM[178]1[164]400:[130]
  53. 555 [151]54296,0:[142]
  54. 560 [143] <BLIP>
  55. 565 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  56. 570 [151]54296,7:[151]54277,42:[151]54278,250
  57. 575 [151]54276,23:[151]54273,23:[151]54272,191
  58. 580 [129]TM[178]1[164]30:[130]:[151]54276,32:[129]TM[178]1[164]50:[130]
  59. 585 [151]54296,0:[142]
  60. 590 [129]TM[178]1[164]500:[130]:[142]
  61. 591 [129]TM[178]1[164]1000:[130]:[142]
  62. 592 [129]TM[178]1[164]2000:[130]:[142]
  63. 593 [129]TM[178]1[164]3000:[130]:[142]
  64. 600 [153]"LOAD       (null)OME LEN(null)(null)VAL(null).......
  65. 605 PRINT"[159] [212]HE WORDS [158]MAY[159] AND [158]CAN[159] HAVE SIMILAR
  66. 607 [153]" MEANINGS BUT WITH VERY IMPORTANT        DIFFERENCES.
  67. 610 PRINT"[153]         **** [210][197][205][197][205][194][197][210] ****
  68. 620 [153]" SYS(null)ATN(null)OPEN MEANS TO GIVE OR ASK
  69. 625 PRINT" PERMISSION[159]."
  70. 630 PRINT" [158][195][193][206][159] MEANS TO HAVE THE ABILITY[159]
  71. 640 [153]" TO DO SOMETHING."
  72. 690 [141]235
  73. 695 [137]190
  74. 999 :
  75. 1000 [153]"LOAD";:[140]:[151]53281,0:[151]53280,0
  76. 1005 P[178]1:C[178]15:H[178]0
  77. 1010 [129]J[178]1[164]C
  78. 1015 [135]A$,B$,C$,D$
  79. 1020 [153]"PRINT#LOAD VALSTR$-48 VALX-13 CLR"[163]14)""N$,[163]29)"LIST(null)TEP:"P""
  80. 1025 [153]""
  81. 1030 [153]"SYS>>> OPEN";A$;"
  82. 1035 PRINT"[155]    [211]ELECT THE CORRECT WORD FOR THIS        SENTENCE.
  83. 1037 [153]"            "B$
  84. 1038 [153]"            "C$
  85. 1040 [141]560:[133]"SYS>>>> ";SK$
  86. 1045 [139]SK$[178]D$[167]1090
  87. 1050 [153]"DEF                  (null)(null)                    OPEN":[141]530:[141]591
  88. 1055 [153]"DEF (null)HE ANSWER IS SYS"D$:H[178]H[170]1:[141]560:[141]560:[141]591
  89. 1070 [141]240:[137]1095
  90. 1090 [153]"                   (null)VAL(null)!                 OPENWAIT":[141]500:[141]591
  91. 1095 P[178]P[170]1:[130] J
  92. 1999 :
  93. 2000 [153]"OPENLOAD(null)OU HAVE NOW COMPLETED VALXERCISE 13.":[141]560:[141]591
  94. 2005 [153]"PRINT(null)OU HAVE ANSWERED"C"QUESTIONS":[141]591
  95. 2007 [139]H[178]0[167]2020
  96. 2010 [139] H[178]1[167][153]"DEF(null)OU MADE ONLY ONE BLOOPER.":[141]530:[137]2025
  97. 2012 [153]"DEF(null)OU MADE"H"BLOOPERS.":[141]530:[137]2030
  98. 2020 [139]H[178]0[167][153]"SYS                VAL(null)LENVAL(null)(null)VAL(null)(null)!              WAIT":[137]2035
  99. 2025 [139]H[178]1[167][153]"OPEN              CHR$OOD (null)ORK!                WAIT":[137]2035
  100. 2030 [153]"DEF       (null)RY HARDER!  STR$O IT AGAIN!        WAIT"
  101. 2035 [153]"":[141]235
  102. 2050 [153]"PRINTLOAD(null)OU HAVE A CHOICE:
  103. 2052 PRINT"[208]RESS  [210] [146] TO REPEAT [197]XERCISE 13
  104. 2054 [153]"(null)RESS  CHR$ WAIT TO GO TO VALXERCISE 14
  105. 2056 PRINT"[208]RESS  [205] [146] TO GO TO DISK MENU
  106. 2060 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"(null)"[175]R$[179][177]"G"[175]R$[179][177]"CHR$"[175]R$[179][177]"M"[175]R$[179][177]"(null)"[167]2060
  107. 2062 [139]R$[178]"R"[167][140]:[137]100
  108. 2064 [139]R$[178]"(null)"[167][140]:[137]100
  109. 2066 [139]R$[178]"G"[167][140]:[137]2080
  110. 2068 [139]R$[178]"CHR$"[167][140]:[137]2080
  111. 2070 [153]"LOAD (null)ETURNING TO THE DISK (null)VAL(null)(null)
  112. 2072 LOAD"MENU",8
  113. 2074 RUN
  114. 2076 END
  115. 2080 PRINT"[147] [204]OADING [197]XERCISE 14
  116. 2082 [147]"EXERCISE 14",8
  117. 2084 [138]
  118. 2086 [128]
  119. 2099 :
  120. 2100 [143] THE GUTS OF THE UNIT
  121. 2110 [131]" SYS....OPEN RIGHT$ WASH MY HAIR?"
  122. 2112 [131]"MAY","CAN","LENAN"
  123. 2115 [131]"ASCRED SYS....OPEN RUN VERY FAST."
  124. 2117 [131]"MAY","CAN","CAN"
  125. 2120 [131]"(null)OU SYS....OPEN GO SWIMMING AFTER SCHOOL."
  126. 2122 [131]"MAY","CAN","MAY"
  127. 2125 [131]"SYS....OPEN RIGHT$ HAVE ANOTHER GLASS OF            JUICE?"
  128. 2127 [131]"MAY","CAN","(null)AY"
  129. 2130 [131]"(null)HEY SYS....OPEN GO TO THE COMPUTER LAB."
  130. 2132 [131]"MAY","CAN","MAY"
  131. 2135 [131]"LEFT$ENRY SYS....OPEN RECITE HIS NINE TIMES        TABLES FOR HIS TEACHER."
  132. 2137 [131]"MAY","CAN","CAN"
  133. 2140 [131]"STR$AD AND (null)OM SYS....OPEN BUY A NEW CAR          NEXT WEEK."
  134. 2142 [131]"MAY","CAN","MAY"
  135. 2145 [131]"PEEKOB SYS....OPEN JUGGLE FOUR BEAN BAGAS         AT ONCE."
  136. 2147 [131]"MAY","CAN","CAN"
  137. 2150 [131]"(null)OU SYS....OPEN HAVE SOME ICE CREAM IF         YOU BEHAVE PROPERLY."
  138. 2152 [131]"MAY","CAN","MAY"
  139. 2155 [131]"SYS....OPEN RIGHT$ GO TO THE WASHROOM, PLEASE?"
  140. 2157 [131]"MAY","CAN","(null)AY"
  141. 2160 [131]"SYS....OPEN RIGHT$ EAT NOW, PLEASE?"
  142. 2162 [131]"MAY","CAN","(null)AY"
  143. 2165 [131]"(null)HY SYS....OPEN RIGHT$ RIDE MY BIKE AS WELL         AS PEEKILL?
  144. 2167 DATA"MAY","CAN","CAN'T"
  145. 2170 DATA"[158]....[159] [201] RIDE MY BIKE TO SCHOOL?"
  146. 2172 DATA"MAY","CAN","[205]AY"
  147. 2175 DATA"[210]OBERTA AND [202]USTIN [158]....[159] SING VERY       WELL."
  148. 2177 DATA"MAY","CAN","CAN"
  149. 2180 DATA"[158]....[159] YOU SPEAK [198]RENCH VERY WELL?
  150. 2182 [131]"MAY","CAN","LENAN"
  151. 2199 :
  152. 3000 [143] WH CUMBERLAND 93:04:25
  153.